<!Doctype html>
<html>

<head>
    <title>oixan的博客</title>
    <meta name="viewport" content="width=device-width, initial-scale=1">
    <meta http-equiv="Content-Type" content="text/html" ; charset="utf-8">
    <link rel="stylesheet" type="text/css" href="../css/blog.css">
</head>

<body>
    <div class="head">
        <div class="headnav">
            <div class="naveframe">
                <ul class="navlist">
                    <li>
                        <a href="../index.html">
                            主页
                        </a>
                    </li>
                    <li>
                        <a href="../bloglist.html">
                            博客
                        </a>
                    </li>
                    <li>
                        <a href="../about.html">
                            关于
                        </a>
                    </li>
                </ul>
            </div>
        </div>

        <div class="headtext">
            <div class="headtext1">世界很简单，人类很复杂。</div>
            <div class="headtext2">浮生若梦，寻寻觅觅。</div>
        </div>
    </div>

    <div class="contents-all">
        <div class="contents">

            <div class="frame">
                <div class="title">
                    <h3>excel打开很慢，点击编辑某工作表很卡</h3>
                </div>
                <div class="dtime">时间：2020-09-14</div>
                <div class="detail">

                   

<p style="margin-left:20px">看文档有3m左右，删除了表里所有内容还是很卡，文档还有1.8M。</p>

<p style="margin-left:20px"><strong>这里可以说是方法1：直接ctrl+g（或者F5），定位条件，对象。在转圈圈。可以肯定不知道她怎么多次复制过来或者插入很重复的东西了。</strong></p>

<p style="margin-left:20px"><strong>本来想着查出来直接按del删掉，正常来说这样操作就可以了。</strong></p>

<p style="margin-left:20px"><strong>怎知她这个差不多二十分钟还卡着不动了。</strong></p>

<p style="margin-left:20px"><strong>这里可以说是方法2：</strong>上VBA<strong>，</strong>先看看里面这个是什么东西。</p>

<p style="margin-left:20px">&nbsp;</p>

<pre style="margin-left:20px">
Sub delobj()
For Each s In Sheet1.Shapes
Debug.Print (s.Name)
Next
End Sub</pre>

<p style="margin-left:20px">&nbsp;</p>

<p style="margin-left:20px">看到非常多textbox，上万个，难怪定位卡死。</p>

<p style="margin-left:20px">处理；</p>

<p style="margin-left:20px">&nbsp;</p>

<pre style="margin-left:20px">
Sub delobj()
For Each s In Sheet1.Shapes
If s.Type = 17 Then
s.Delete
End If
Next
End Sub</pre>

<p style="margin-left:20px">&nbsp;</p>

<p style="margin-left:20px"><strong>运行时也会没响应，稍等几分钟就可以。</strong></p>

<p style="margin-left:20px">运行完后，文档也很小了，excel文档打开编辑都很流畅了。</p>

<p style="margin-left:20px"><strong>这里可以说是方法3：后来网上查到还有一种方法，</strong></p>

<p style="margin-left:20px"><strong>将该文档改为压缩文件，打开xl-drawings-drawing1.xml ,</strong><strong>drawing2.xml&nbsp;</strong><strong>删除</strong></p>

<p style="margin-left:20px">再改为xlsx文件，打开。</p>





                </div>
                <a href="javascript:void(0)" onclick="showPg()">返回</a>
            </div>


        </div>
    </div>
    <div class="footer">
        <div class="footertext">©2018,oixan博客</div>
    </div>
    <span id="backtop" onclick="topFunction()">返回顶部</span>
</body>
<script src="../js/fanhuiye.js"></script>

</html>